unit Srv_DataUnit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  TSrv_DataForm = class(TDataModule)
    ADOConnection1: TADOConnection;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  Srv_DataForm: TSrv_DataForm;

implementation
uses Srv_SrvSetUnit;
{$R *.dfm}

procedure TSrv_DataForm.DataModuleCreate(Sender: TObject);
begin
  AdoConnection1.Close;
  AdoConnection1.ConnectionString := Get_Connect_Set;
end;

end.
